home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 83 / 64er_Magazin_Sonderheft_83_19xx_Markt__Technik_de_Side_B.d64 / file revival (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  117 lines
  1. 1 fori=1to31:ln$=ln$+"[192]":ls$=ls$+" ":next
  2. 2 lr$=left$(ls$,31):la$=left$(ln$,31)
  3. 3 rd$="[144] "
  4. 4 ur$(1)="[176]"+la$+"[174]":ur$(2)="[221]"+left$(ls$,31)+"[221]"
  5. 5 ur$(3)="[173]"+left$(ln$,31)+"[189]"
  6. 100 gosub620:re%=0
  7. 110 printchr$(14)
  8. 120 sp%=1:tr%=di%:open15,8,15,"i0
  9. 130 [159]8,8,2,"#2":fi%[178]0
  10. 140 [152]15,"u1:"2;0;tr%;sp%:[141]560
  11. 150 [129]i[178]0[164]1:[161]#8,a$:[141]530:p%(i)[178][198](a$):[130]:a[178]2:[141]550
  12. 160 [161]#8,a$:[141]530:a[178][198](a$)[175]7
  13. 170 h$[178]"":[129]i[178]0[164]1:[161]#8,a$:[141]530:l%(i)[178][198](a$):[130]
  14. 180 [129]i[178]3[164]18:[161]#8,a$:h$[178]h$[170]a$:[130]
  15. 190 [139]h$[178]""[167]210
  16. 191 [141]1200:[141]1100
  17. 192 [151]214,17:[151]211,2:[158]58640
  18. 200 [153]""ki$(a);" ";h$;:[139]a[178]0[167][137]380
  19. 210 fi%[178]fi%[170]1:[139]fi%[179]8[167]a[178]fi%[172]32[170]2:[141]550:[137]160
  20. 220 [139]p%(0)[178]0[167]240
  21. 230 tr%[178]p%(0):sp%[178]p%(1):fi%[178]0:[137]140
  22. 240 [160]8:[139]re%[167][141]1200:[153][163]1)"defpeekatn(NULL) aktualisieren ((NULL)alidate)"
  23. 245 [152]15,"v
  24. 250 gosub560:close15
  25. 252 gosub1300
  26. 254 printtab(14)"[154][215]eitere [196]iskette"
  27. 255 printtab(14)"[154]bearbeiten? (j/n)[144]"
  28. 256 gett$:ift$="j"thenrun
  29. 257 ift$="n"thenprint"[147]":poke198,0:end
  30. 258 goto256
  31. 260 rem file zurueckholen
  32. 270 print#15,"u1:"2;0;l%(0);l%(1):return
  33. 280 d%=2
  34. 290 gosub270:fori=0to1:get#8,a$:gosub530:z%(i)=asc(a$):next
  35. 310 ifz%(0)=0thenreturn
  36. 320 print#15,"b-f"0;z%(0);z%(1):l%(0)=z%(0):l%(1)=z%(1):z%(d%)=z%(0)
  37. 330 z%(d%+1)=z%(1):d%=d%+2
  38. 340 ifds=0then290
  39. 350 gosub1200:printtab(1)"[150][198]ile wurde ueberschrieben!":x%=not(x%):a=fi%*32+2
  40. 360 fori=2tod%-4step2:print#15,"b-f:"0;z%(i);z%(i+1):next
  41. 370 l%(0)=tr%:l%(1)=sp%:gosub270:goto550
  42. 380 gosub1200
  43. 384 printtab(1)"[150][211]ektoren wiederverbinden? (j/n)"
  44. 385 geta$
  45. 386 ifa$="j"then400
  46. 390 ifa$="n"then210
  47. 391 goto385
  48. 400 x%=0:gosub1200:printtab(1)"[150][198]ile wiederherstellen..."
  49. 402 z%(0)=l%(0):gosub280:ifx%then210
  50. 403 gosub1300
  51. 405 printtab(14)"[154][196]ateityp festlegen!"
  52. 406 printtab(14)"<[208]>[210][199] ([208]rogramm)"
  53. 407 printtab(14)"<[211]>[197][209] (sequentiell)"
  54. 408 printtab(14)"<[213]>[211][210] ([213]ser-[196]atei)"
  55. 409 printtab(14)"<[210]>[197][204] (relativ)[144]"
  56. 430 getja$:ifja$<>"p"andja$<>"s"andja$<>"u"andja$<>"r"then430
  57. 440 print:ifja$="p"thengosub1300:printtab(14)"[154][208]rogramm-":ki%=130:goto480
  58. 450 ifja$="u"thengosub1200:printtab(14)"[154][213]ser-":ki%=131:goto480
  59. 460 ifja$="r"thengosub1200:printtab(14)"[154][210]elative":ki%=132:goto480
  60. 470 gosub1200:printtab(14)"[154][211]equentielle":ki%=129
  61. 480 printtab(14)"[154][196]atei reaktivieren."
  62. 490 l%(0)=tr%:l%(1)=sp%:gosub270
  63. 500 a=fi%*32+2:gosub550:print#8,chr$(ki%);
  64. 510 bl%=((d%-2)/2)+1:printtab(14)"[154]"bl%"[194]locks"
  65. 520 print#15,"u2:"2;0;tr%;sp%:printtab(14)"[154]wieder belegt!":re%=1:goto210
  66. 530 ifa$=""thena$=chr$(0)
  67. 540 return
  68. 550 print#15,"b-p:"2;a
  69. 560 input#15,en%,em$,et%,es%:ifen%=0thenreturn
  70. 570 print"[147][144][196][201][211][203] [197][210][210][207][210][146]
  71. 580 [153]"ascehlerwait: "en%" "em$","et%","es%
  72. 590 [153]"'len(NULL)(NULL)(NULL)' eingeben!"
  73. 600 [128]
  74. 610 [142]
  75. 620 [134]p%(1),l%(1),z%(300),ki$(4):co$[178][199](34):[151]53280,1:[151]53281,1:
  76. 621 [151]646,5:[153]"load"
  77. 630 [129]i[178]0[164]4:[135]ki$(i):[130]
  78. 640 [131]"str$val(NULL)","(NULL)val(NULL)","(NULL)(NULL)chr$","(NULL)(NULL)(NULL)","(NULL)val(NULL)"
  79. 650 [141]1000
  80. 745 [161]td$:[139]td$[179][177][199](13)[167]745
  81. 750 di%[178]18:[142]
  82. 1000 [153]ur$(1)
  83. 1002 [129]i[178]1[164]12:[153]ur$(2)[170]rd$[170]"":[130]
  84. 1004 [153]ur$(3)[170]rd$
  85. 1006 [153][163]2)""ls$[170]rd$
  86. 1010 [151]214,2:[151]211,10:[158]58640
  87. 1012 [153]"ascright$(NULL)val (NULL)val(NULL)right$(NULL)atn(NULL)"
  88. 1014 [153][163]3)"fuer ascloppy 1541/1570/1571"
  89. 1016 [153][163]2)"stellt mit (NULL)len(NULL)atn(NULL)lenleft$ geloeschte"
  90. 1018 [153][163]2)"str$ateien auf str$iskette im"
  91. 1020 [153][163]2)"(NULL)riginalzustand wieder her."
  92. 1022 [153][163]2)"atnlenleft$(NULL)(NULL)(NULL)chr$! vals duerfen vorher"
  93. 1024 [153][163]2)"keine neuen str$ateien auf die"
  94. 1026 [153][163]2)"str$iskette gespeichert werden!"
  95. 1028 [153][163]2)"str$isk einlegen, dann <(NULL)val(NULL)(NULL)(NULL)(NULL)>"
  96. 1099 [142]
  97. 1100 [151]214,16:[151]211,0:[158]58640
  98. 1101 [151]646,6:[153]ur$(1)
  99. 1102 [153]ur$(2)[170]rd$[170]""
  100. 1104 [153]ur$(3)[170]rd$
  101. 1106 [153][163]2)""ls$[170]rd$
  102. 1108 [142]
  103. 1200 [151]214,20:[151]211,0:[158]58640
  104. 1201 [151]646,10:[153]ur$(1)
  105. 1202 [153]ur$(2)[170]rd$[170]"def"
  106. 1204 [153]ur$(3)[170]rd$
  107. 1206 [153][163]2)""ls$[170]rd$
  108. 1209 [151]214,21:[151]211,0:[158]58640
  109. 1210 [142]
  110. 1300 [151]214,3:[151]211,13:[158]58640
  111. 1301 [151]646,14:[153][200](ur$(1),20)[170][201](ur$(1),3)
  112. 1302 [129]i[178]1[164]7:[153][163]13)[200](ur$(2),20)[170][201](ur$(2),3)[170]rd$[170]"cont":[130]
  113. 1304 [153][163]13)[200](ur$(3),20)[170][201](ur$(3),3)[170]rd$
  114. 1306 [153][163]15)""[170][200](ls$,20)[170]rd$
  115. 1309 [151]214,4:[151]211,14:[158]58640
  116. 1310 [142]
  117.